home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 54
/
054.d81
/
night mission
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
36 lines
5 gosub 2000
10 poke53280,0:poke53281,0:printchr$(147)
20 print""tab(15)"please wait"
30 sys57812"hangar.ml",8,0
40 poke780,0
50 poke781,0
60 poke782,64
70 sys65493
80 sys16384
1000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
1010 ifer<>63thenend
1011 printchr$(142)"[147] please wait while loading..."
1020 print"[144]p[207]55,255:p[207]56,159:l[207]"chr$(34)"hello connect"chr$(34)",8,1"
1050 poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
1060 new
2000 poke53265,peek(53265)and239:poke53280,6:poke53281,1:print"[147][142]";
2001 print"[155] ";
2002 print" [154] [155] [154] loadstar ";
2003 print"proudly [152] [155] [154] presents [152] [155] [154]";
2004 print" [152] [155] [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
2005 print"[183]P[155] [146][156][165]nightmission[156][167][152] [155] [146][156]L[175][175][175][175][175][175][175][175][175]";
2006 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155] [151] [152] [155] ";
2007 print" [154] [152] [155] [154] [146][149]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
2008 print"[183][183][183][183][183][183]P[154] [152] [155] [154] [146][149][165][156]bybarbaraschulak[149][167] [154] [152] [155] ";
2009 print" [154] [146][149]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154] [152] [155] [154] ";
2010 print" [154] [152] [155] [154] [152] [155] [154] [146][156]O";
2011 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154] [152] [155] [154] [146][156][165]copyright1988[156]";
2012 print"[167] [154] [152] [155] [154] [146][156]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154] [152] [155] [154] ";
2013 print" [160][154] [152] [155] [154] [152] ";
2014 print"[155] [154] press space to continue [152] [155] [154] ";
2015 print" [152] [155] [152] [155] ";
2016 print" "
2020 poke2023,96+128:poke56295,15:poke53265,peek(53265)or16
2030 geta$:ifa$<>" "then2030
2035 return